home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / spiele / publicdomain / puzle / install < prev    next >
Text File  |  1996-06-05  |  6KB  |  250 lines
  1. (complete 0)
  2. ; -------------------------
  3. ; SELECT LANGUAGE TEXTS
  4. ; -------------------------
  5.  
  6.  (if (= @language "polski")
  7. (     (set #welcome
  8.       (cat
  9.            "\nWitam w programie instalacyjnym  'Puzle 3.0'  \n"
  10.            "Ten program zainstaluje grë  'Puzle 3.0'  \n"
  11.            "na twoim twardym dysku.\n\n"
  12.            "P U Z L E\n"
  13.            "\nCopyright (C) 1995-1996 Mirosîaw Siedlarz\n"
  14.            "Wszelkie Prawa Zastrzeûone\n"
  15.            "Wersja 3.0 - Data produkcji 07.06.1996\n\n"
  16.  
  17.            "Przeczytaj plik  'Puzle_polski.guide'  w celu\n"
  18.            "otrzymania wiëkszej iloôci informacji o programie.\n\n"
  19.       )
  20.      )
  21.     (set #destdir
  22.      (cat
  23.            "Gdzie mam zainstalowaê program  'Puzle 3.0'  \n"
  24.            "UWAGA! Nie bëdzie stworzony ûaden katalog."
  25.      )
  26.      )
  27.      (set #copylibrary "Kopiujë biblioteke")
  28.     (set #chooselang  "Wybierz wersjë jëzykowâ programu")
  29.     (set #chooselang-help "    :-)")
  30.     (set #level "Poziom trudnoôci")
  31.      (set #level-1 "îatwy - 20 kawaîków ukîadanki")
  32.     (set #level-2 "trudny - 80 kawaîków ukîadanki")
  33.     (set #level-help "    :-)")
  34.     (set #sound "Dûwiëk")
  35.     (set #sound-1 "wîâczony")
  36.     (set #sound-2 "wyîâczony")
  37.     (set #sound-help "    :-)")
  38.     (set #prev "Podglâd ukîadanego obrazka podczas gry")
  39.     (set #prev-help "    :-)")
  40.      (set #guide "Czy chcesz skopiowaê instrukcjë do programu ?")
  41.      (set #guide-help "    |-)")
  42.      (set #yes "Tak")
  43.      (set #no "Nie")
  44.  )
  45.   )
  46.  
  47.  (if (= @language "english")
  48.   (
  49.      (set #welcome
  50.       (cat
  51.            "\nWelcome to the  'Puzle 3.0'  Installer Utility\n"
  52.            "This program will install the  'Puzle 3.0'  \n"
  53.            "program on your hard disk.\n\n"
  54.            "P U Z L E\n"
  55.            "\nCopyright (C) 1995-1996 Miroslaw Siedlarz\n"
  56.            "All Rights Reserved\n"
  57.            "Version 3.0 - Release date 07.06.1996\n\n"
  58.  
  59.            "Please read the  'Puzle_english.guide'  document for\n"
  60.            "more information about the program.\n\n"
  61.       )
  62.      )
  63.     (set #destdir
  64.       (cat
  65.            "Select directory where to install  'Puzle 3.0'  .\n"
  66.            "NOTE! Directory will not be created."
  67.       )
  68.      )
  69.     (set #copylibrary "Copying library")
  70.     (set #chooselang "Select language version of program")
  71.      (set #chooselang-help "You can set default language for the program")
  72.     (set #level "Select difficulty level")
  73.     (set #level-1 "easy - 20 pieces of puzzle")
  74.     (set #level-2 "hard - 80 pieces of puzzle")
  75.     (set #level-help "    :-)")
  76.     (set #sound "Sound in the game")
  77.      (set #sound-1 "on")
  78.     (set #sound-2 "off")
  79.     (set #sound-help "    :-)")
  80.     (set #prev "Preview picture in the game ?")
  81.     (set #prev-help "    :-)")
  82.      (set #guide "Do you want to copy AmigaGuide document for this game ?")
  83.      (set #guide-help "    :-)")
  84.      (set #yes "Yes")
  85.      (set #no "No")
  86.       )
  87.  )
  88. ; ---------
  89. ; MAIN CODE
  90. ; ---------
  91.  
  92. (message  #welcome)
  93. (complete 5)
  94. (welcome)
  95. (set @default-dest "DH1:")
  96. (set Puzle-dest
  97.     (askdir
  98.       (prompt #destdir)
  99.       (help @askdir-help)
  100.       (default @default-dest)
  101.     )
  102. )
  103. (set @default-dest Puzle-dest)
  104. (complete 10)
  105.  
  106. ; --------------
  107. ; COPY LIBRARIES
  108. ; --------------
  109.     (copylib
  110.         (prompt #copylibrary)
  111.         (help @copylib-help)
  112.         (source "PUZLE_00:libs/amos.library")
  113.         (dest "SYS:libs")
  114.         (confirm)
  115.     )
  116. (complete 20)
  117.  
  118.     (copylib
  119.         (prompt #copylibrary)
  120.         (help @copylib-help)
  121.         (source "PUZLE_00:libs/easylife.library")
  122.         (dest "SYS:libs")
  123.         (confirm)
  124.     )
  125. (complete 30)
  126.  
  127. ; -----------------
  128. ; COPY MAIN PROGRAM
  129. ; -----------------
  130.     (copyfiles
  131.         (source "PUZLE_00:Puzle")
  132.           (dest Puzle-dest)
  133.         (infos)
  134.     )
  135. (complete 40)
  136.  
  137. ; ------------
  138. ; COPY GUIDE
  139. ; ------------
  140. (set gid
  141.     (askchoice
  142.         (prompt #guide)
  143.         (choices #Yes #No)
  144.         (help #guide-help)
  145.         (default 0)
  146.      )
  147. )
  148.      ( if (= gid 0)
  149.      (
  150.           (copyfiles
  151.         (source "PUZLE_00:Puzle.guide")
  152.         (dest @default-dest)
  153.         (infos)
  154.           )
  155.           (copyfiles
  156.         (source "PUZLE_00:data/")
  157.         (dest (tackon @default-dest "data"))
  158.           (all)
  159.           )
  160. )
  161. )
  162. (complete 50)
  163.  
  164.  
  165. ; ----------
  166. ; COPY FONTS
  167. ; ----------
  168.     (copyfiles
  169.         (source "PUZLE_00:fonts")
  170.         (dest "SYS:Fonts")
  171.         (all)
  172.     )
  173. (complete 60)
  174.  
  175. ; ------------
  176. ; COPY OBRAZKI
  177. ; ------------
  178.     (trap 3 (copyfiles
  179.         (pattern "puz.#?")
  180.         (source "PUZLE_00:obrazki")
  181.         (dest (tackon Puzle-dest "obrazki"))
  182.     ))
  183. (complete 70)
  184.  
  185.     (trap 3 (copyfiles
  186.         (pattern "puz.#?")
  187.         (source "PUZLE_01:obrazki")
  188.         (dest (tackon Puzle-dest "obrazki"))
  189.     ))
  190. (complete 90)
  191.  
  192. ; -------------------
  193. ; USTAWIENIE TOOLTYPE
  194. ; -------------------
  195.     (set jezyk
  196.     (askchoice
  197.         (prompt #chooselang)
  198.         (choices "english" "polski")
  199.         (help #chooselang-help)
  200.  
  201.         (if (= @language "english")
  202.             (default 0)
  203.             (default 1)
  204.         )
  205.     )
  206.      )
  207.  
  208. (complete 96)
  209.  
  210.     (set poziom
  211.     (askchoice
  212.             (prompt #level)
  213.             (choices #level-1 #level-2)
  214.             (help #level-help)
  215.         )
  216.      )
  217. (complete 97)
  218.  
  219.  (set dzwiek
  220.     (askchoice
  221.         (prompt #sound)
  222.         (choices #sound-1 #sound-2)
  223.         (help #sound-help)
  224.     )
  225.  )
  226. (complete 98)
  227.  (set podglad
  228.     (askchoice
  229.         (prompt  #prev)
  230.         (choices #sound-1 #sound-2)
  231.         (help #prev-help)
  232.     )
  233.  )
  234. (complete 99)
  235. (tooltype
  236.     (dest (tackon Puzle-dest "Puzle"))
  237.     (if (= jezyk 0) (settooltype "LANGUAGE" "english"))
  238.     (if (= jezyk 1) (settooltype "LANGUAGE" "polski"))
  239.     (if (= poziom 0) (settooltype "LEVEL" "1"))
  240.     (if (= poziom 1) (settooltype "LEVEL" "2"))
  241.     (if (= podglad 0) (settooltype "PREVIEW" "ON"))
  242.     (if (= podglad 1) (settooltype "PREVIEW" "OFF"))
  243.     (if (= dzwiek 0) (settooltype "SOUND" "ON"))
  244.     (if (= dzwiek 1) (settooltype "SOUND" "OFF"))
  245. )
  246. ; ---------
  247. (complete 100)
  248.  
  249.  
  250. (exit)